home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / sys / test.t < prev    next >
Text File  |  1989-06-30  |  425b  |  17 lines
  1. (herald test (env tsys))
  2.  
  3. (define (fac x)
  4.   (if (fx< x 1) 1 (** x (fac (fx- x 1)))))
  5.  
  6. (define (bar x) (lambda (y) (cons x y)))
  7.  
  8. (define (*boot*)
  9.   (t_printf "answer is %d" (fac (cdr ((bar 1) 5))))
  10.   (t_exit 0))
  11.  
  12. (define-foreign ** ("fxmul" (in rep/pointer) (in rep/integer))
  13.   rep/pointer)
  14.  
  15. (define-foreign t_printf ("printf" (in rep/string) (in rep/integer)) ignore)
  16. (define-foreign t_exit ("exit" (in rep/integer)) ignore)
  17.